home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / misc / emu / iecutil.lha / inc / lib / iec.lib < prev    next >
Encoding:
Text File  |  1997-04-06  |  866 b   |  40 lines
  1. {$if not def IEC_LIB}
  2. const IEC_LIB='I';
  3.  
  4. const ST_OK = $00;
  5.       ST_READ_TIMEOUT = $02;
  6.       ST_TIMEOUT = $03;
  7.       ST_EOF = $40;
  8.       ST_NOTPRESENT = $80;
  9.       CMD_DATA = $60;
  10.       CMD_CLOSE = $E0;
  11.       CMD_OPEN = $F0;
  12.  
  13. type iec_base = record
  14.                   temp: array[0..33] of char;
  15.                   iec_SysLib: longint;
  16.                   iec_DosLib: longint;
  17.                   iec_SegList: longint;
  18.                   iec_ST: byte;
  19.                   iec_pad: char 
  20.                 end;
  21.  
  22. var IECBase: ^iec_base;
  23.  
  24. procedure OpenIEC;
  25.   begin
  26.     OpenLib(IECBase,'iec.library',0)
  27.   end;
  28.  
  29. Library IECBase:
  30. -30: procedure Listen(D0: byte);
  31. -36: procedure UnListen;
  32. -42: procedure Talk(D0: byte);
  33. -48: procedure UnTalk;
  34. -54: procedure Second(D0: byte);
  35. -60: procedure TkSA(D0: byte);
  36. -66: procedure CIOut(D0: char);
  37. -72: function ACPtr: char;
  38. end;
  39. {$endif}
  40.